home *** CD-ROM | disk | FTP | other *** search
/ Light & Shade: Niida Takashi / Light & Shade: Niida Takashi.iso / mac / WIN / AUTO2.Dxr / 00123.ls < prev    next >
Encoding:
Text File  |  1998-09-06  |  918 b   |  45 lines
  1. on exitFrame
  2.   global counter, mycastnum, n, playlist, x, k, p
  3.   cursor(-1)
  4.   if counter = (k + 1) then
  5.     set counter to 1
  6.   else
  7.     set n to item counter of field "playList"
  8.     set mycastnum to the number of member ("B" & n)
  9.     set the castNum of sprite 1 to mycastnum
  10.     if the mouseDown then
  11.       set x to 53
  12.       put EMPTY into field "playList"
  13.       sound stop 1
  14.       puppetTransition(23)
  15.       cursor(-1)
  16.       set counter to 1
  17.       go("menu")
  18.     end if
  19.     set counter to counter + 1
  20.     counttime()
  21.     if p = 1 then
  22.       set p to 0
  23.       set counter to 1
  24.       go("menu")
  25.     end if
  26.   end if
  27.   go("show")
  28. end
  29.  
  30. on counttime
  31.   startTimer()
  32.   repeat while the timer <= (5 * 60)
  33.     if the mouseDown then
  34.       set p to 1
  35.       set x to 53
  36.       put EMPTY into field "playList"
  37.       sound stop 1
  38.       puppetTransition(23)
  39.       cursor(-1)
  40.       exit repeat
  41.     end if
  42.     nothing()
  43.   end repeat
  44. end
  45.